perm filename S.F4[1,LCS] blob sn#685220 filedate 1982-10-30 generic text, type T, neo UTF8
00100		DIMENSION I(72)
00200	1	FORMAT(72A1)
00300		CALL IFILE(1,'SB')
00330		CALL OFILE(21,'SY')
00400	2	READ(1,1,END=4)I
00500		DO 3 K=72,1,-1
00600	3	IF(I(K).NE.' ')GO TO 5
00700	5	WRITE(21,1)(I(J),J=2,K)
00800		GO TO 2
00900	4	END